home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / util / moni / Scout.lha / Scout / arexx / freezetask.scout < prev    next >
Encoding:
Text File  |  2001-11-27  |  737 b   |  30 lines
  1. /**************************************************************************
  2.  *             This ARexx script freezes the task <taskname>.             *
  3.  *                      USAGE: freezetask <taskname>                      *
  4.  **************************************************************************/
  5.  
  6. if showlist('p','SCOUT.1') < 1 then do
  7.   say "Scout is not running!"
  8.   exit
  9. end
  10. address 'SCOUT.1'
  11. parse arg taskname
  12.  
  13. options results
  14. options failat 20
  15.  
  16. if taskname = '' then do
  17.   say "usage: freezetask <taskname>"
  18.   exit
  19. end
  20.  
  21. FindTask taskname
  22. taskaddress = result
  23. if taskaddress = 'RESULT' then
  24.   say "Can't find task '" || taskname || "'!"
  25. else do
  26.   FreezeTask taskname
  27.   say "Now task '" || taskname || "' is frozen!"
  28. end
  29. exit
  30.